home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / general / Boolean.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  326 b   |  21 lines
  1. Class Boolean :Object
  2. [
  3.     & aBoolean
  4.       ^ self and: [aBoolean]
  5. |   
  6.     | aBoolean
  7.       ^ self or: [aBoolean]
  8. |   
  9.     and: aBlock   
  10.       ^ self and: [aBlock value]
  11. |   
  12.     or:  aBlock  
  13.       ^ self or: [aBlock value]
  14. |   
  15.     eqv: aBoolean
  16.       ^ self == aBoolean
  17. |   
  18.     xor: aBoolean
  19.       ^ self ~~ aBoolean
  20. ]
  21.